5 IFA=1THENGOTO25
10 IFA=2THENGOTO27
20 A=1:LOAD"ZUSATZ",8,1
25 A=2:LOAD"MUSIC1",8,1
27 GOSUB3000:REM"[141][145]27 CLR:RESTORE:WAIT2030,34
30 [159]1,8,2,"NAME":[132]1,N$:[132]1,C:[160]1:[158]828,81,159:[151]33000,2
40 [158]828,1:[153]"LOAD    (null) T U F E     1"
50 [153]"    [CLOSEF1 ]  PEEKONUSSPIEL"
60 [153]"    CONT[CLOSEF3 ] LEFT$IGH-(null)CORE"
70 [153]"    OPEN[ F5 ]CLOSE(null)UR (null)TUFE 2"
80 [153]"    [ F7 ] ATNBBRUCH UND INS VALNDMENUE"
90 [161]A$:[139]A$[179][177][199](133)[175]A$[179][177][199](134)[175]A$[179][177][199](135)[175]A$[179][177][199](136)[167]90
100 [139]A$[178][199](133)[167][137]140
110 [139]A$[178][199](134)[167][137]760
120 [139]A$[178][199](135)[167][137]810
130 [139]A$[178][199](136)[167][137]840
140 [153]"LOADOPENPEEKONUSSPIEL (null)TUFE 1"
150 [153]"------------------"
160 [153]"STR$U BEKOMMST GLEICH 10X EINE (null)EIHE VON"
170 [153]"PRINT(null)REUZEN (#) AUF DEN PEEKILDSCHIRM."
180 [153]"VALS SIND MAX. 80 (null)EICHEN, UND STR$EINE"
190 [153]"PRINTATNUFGABE IST ES NUN, INNERHALB VON"
200 [153]"3 (null)EKUNDEN ZU SCHAETZEN, WIEVIELE"
210 [153]"PRINT(null)REUZE ES SIND. STR$EINE (null)UNKTZAHL"
220 [153]"BETRAEGT JEWEILS 15 ABZUEGLICH DER"
230 [153]"PRINT(null)AHL, DIE STR$U DANEBEN GETIPPT HAST. STR$AS"
240 [153]"BEDEUTET, WENN STR$U STR$ICH UM MEHR ALS 15"
250 [153]"PRINTVERTIPPST, BEKOMMST STR$U GAR KEINE (null)UNKTE"
260 [153]"MEHR.         (null)ETURN WAIT"
270 [161]A$:[139]A$[179][177][199](13)[167][137]270
280 [129]N[178]1[164]10:[153]:[130]
290 [153]"SYSPEEKEACHTE, DASS STR$U IMMER ZWEI (null)IFFERN"
300 [153]"FOREINGEBEN MUSST, BEI EINER (null)AHL UNTER"
310 [153]"SYS10 ALSO MIT (null)ULL ( Z.PEEK. 05 )."
320 [153]"FOR(null)ENN STR$U STR$IR LAENGER ALS 3 (null)EKUNDEN (null)EIT"
330 [153]"SYSLAESST, SIND DIE (null)UNKTE WEG."
332 [153]"FOR(null)OCH EINEN KLEINEN (null)IP: EINE PEEKILD-"
333 [153]"SYSSCHIRMZEILE SIND 40 (null)EICHEN."
340 [153]"LIST(null)ENN STR$U JETZT CLOSE(null)ETURN WAIT DRUECKST, DANN"
350 [153]"GEHT'S LOS, ABER ATNCHTUNG...ETWAS MIT"
360 [153]"LIST(null)EMPO !!!"
370 [161]A$:[139]A$[179][177][199](13)[167][137]370
380 [153]"LOADCONT":P[178]0
390 [129]M[178]1[164]10:[153]"LOADCLR(null)ERSUCH:";M;"":[129]N[178]1[164]1000:[130]:A[178][181]([187](0)[172]80)[170]1
400 [129]N[178]1[164]A:[153]"#";:[130]:TI$[178]"000000"
410 [153]:[153]"FOR.."
420 [161]A$:[139]A$[179][177]""[167][137]430
425 [139][197](TI$)[177]2[167][137]550
427 [137]420
430 [139][198](A$)[179]48[176][198](A$)[177]57[167][137]420
440 [153]"ON";A$;:B[178]10[172][197](A$)
450 [161]A$:[139]A$[179][177]""[167][137]480
460 [139][197](TI$)[177]2[167][137]550
470 [137]450
480 [139][198](A$)[179]48[176][198](A$)[177]57[167][137]450
490 [153]A$:B[178]B[170][197](A$)
500 [153]"    CHR$ETIPPT:";B
510 [153]"   VALS WAREN:";A
515 [139]B[177]A[167]S[178]15[171](B[171]A):[139]S[179]0[167]S[178]0
516 [139]A[177]B[167]S[178]15[171](A[171]B):[139]S[179]0[167]S[178]0
517 [139]A[178]B[167]S[178]15
518 P[178]P[170]S
519 [153]"   (null)UNKTE:";S
520 [153]" RIGHT$NSGESAMT:";P
530 [129]N[178]1[164]1500:[130]N,M
540 [137]570
550 [153]"FOR3 (null)EKUNDEN VORBEI !"
560 S[178]0:[137]518
570 [153]"LOAD(null)TAND NACH 10 (null)ERSUCHEN:"
580 [153]"(null)UNKTZAHL:";P
590 [153]"(null)AL SEHEN, OB DAS EIN (null)LATZ IN DIE"
600 [153]"LEFT$IGH-(null)CORE BRINGT..."
610 [158]828,0:[159]1,8,2,"1-HIGH"
620 [129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
630 [139]P[179]B(9)[167][137]740
640 [153]"MID$A, STR$U BIST IN DER LEFT$IGHSCORE, MOMENT..."
650 [129]N[178]9[164]1[169][171]1
660 [139]P[177]B(N)[167]B(N[170]1)[178]B(N):B$(N[170]1)[178]B$(N):B$(N)[178]N$:B(N)[178]P
670 [130]
680 [153]"LOADCLR   (null)TUFE 1 ... LEFT$IGH-(null)CORE"
690 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
700 [159]1,8,15,"S:1-HIGH":[160]1
710 [159]1,8,2,"1-HIGH,S,W"
720 [129]N[178]1[164]9:[152]1,B$(N):[152]1,B(N):[130]
730 [160]1:[137]40
740 [153]"(null)EIN, LEIDER NICHT. (null)UTTU NOCH UEBEN !"
750 [129]N[178]1[164]1000:[130]:[137]40
760 [158]828,0:[153]"LOADCLR   (null)TUFE 1 ... LEFT$IGH-(null)CORESYS"
765 [159]1,8,2,"1-HIGH":[129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
770 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
780 [153]" (null)ETURN WAIT":[158]828,1
790 [161]A$:[139]A$[179][177][199](13)[167][137]790
800 [137]40
810 [153]"LOADSTOPLOAD";[199](34);"ZWISCHENSTUFE";[199](34);",8":[158]828,0
820 [153]"RUN":[151]631,19:[151]632,13:[151]633,13:[151]198,3
830 [144]
840 [153]"LOADOPEN(null)ILLST STR$U WIRKLICH INS VALNDMENUE ?"
850 [153]" ( MID$ / (null) )"
860 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167][137]860
870 [139]A$[178]"N"[167][137]40
875 [158]828,0:[153]"LOAD":[159]1,8,2,"NAME,S,A":[152]1,"LOSE":[160]1
880 [153]"LOADSTOPLOAD";[199](34);"ENDMENUE";[199](34);",8"
890 [153]"RUN":[151]631,19:[151]632,13:[151]633,13:[151]198,3
3000 [159]1,8,2,"DATA":[143]"GOSUBON3000 POKE54781,12+C:FORN=1TO1024TO2023:NEXT
3010 INPUT#1,A$:REM"[141][145]3010 POKEN,N-1:NEXTN:A=PEEK(56320)
3020 [139]A$[179][177]"GUT"[167][158]64738:[143]"GOSUBON3020 IFD<>0ORPEEK(56320)=127THEND=C
3030 CLOSE1:RETURN:REM"[141][145]3030 IFPEEK(56392)=124THENGOTO3000
3040 [142]